home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / dev / lang / pcq12src.lzh / Runtime / System / Graphics / Areas.asm next >
Assembly Source File  |  1990-11-10  |  1KB  |  76 lines
  1. *
  2. *    Areas.asm for PCQ Pascal
  3. *    Copyright 1990 Patrick Quaid
  4. *
  5. *    glue routines for the procedures and functions
  6. *    declared in include/graphics/areas.i
  7. *
  8. *
  9.  
  10.     XREF    _GfxBase
  11.  
  12.     SECTION    PCQ_Runtime,CODE
  13.  
  14.     XDEF    _AreaCircle
  15. _AreaCircle
  16.     movem.l    d2/d3,-(sp)
  17.     move.w    12(sp),d2
  18.     move.w    d2,d3
  19.     move.w    14(sp),d1
  20.     move.w    16(sp),d0
  21.     move.l    18(sp),a1
  22.     move.l    _GfxBase,a6
  23.     jsr    _LVOAreaEllipse(a6)
  24.     movem.l    (sp)+,d2/d3
  25.     rts
  26.  
  27.     XREF    _LVOAreaDraw
  28.     XDEF    _AreaDraw
  29. _AreaDraw
  30.     move.w    4(sp),d1
  31.     move.w    6(sp),d0
  32.     move.l    8(sp),a1
  33.     move.l    _GfxBase,a6
  34.     jmp    _LVOAreaDraw(a6)
  35.  
  36.     XREF    _LVOAreaEllipse
  37.     XDEF    _AreaEllipse
  38. _AreaEllipse
  39.     movem.l    d2/d3,-(sp)
  40.     move.w    12(sp),d3
  41.     move.w    14(sp),d2
  42.     move.w    16(sp),d1
  43.     move.w    18(sp),d0
  44.     move.l    20(sp),a1
  45.     move.l    _GfxBase,a6
  46.     jsr    _LVOAreaEllipse(a6)
  47.     movem.l    (sp)+,d2/d3
  48.     rts
  49.  
  50.     XREF    _LVOAreaEnd
  51.     XDEF    _AreaEnd
  52. _AreaEnd
  53.     move.l    4(sp),a1
  54.     move.l    _GfxBase,a6
  55.     jmp    _LVOAreaEnd(a6)
  56.  
  57.     XREF    _LVOAreaMove
  58.     XDEF    _AreaMove
  59. _AreaMove
  60.     move.w    4(sp),d1
  61.     move.w    6(sp),d0
  62.     move.l    8(sp),a1
  63.     move.l    _GfxBase,a6
  64.     jmp    _LVOAreaMove(a6)
  65.  
  66.     XREF    _LVOInitArea
  67.     XDEF    _InitArea
  68. _InitArea
  69.     move.w    4(sp),d0
  70.     move.l    6(sp),a1
  71.     move.l    10(sp),a0
  72.     move.l    _GfxBase,a6
  73.     jmp    _LVOInitArea(a6)
  74.  
  75.     END
  76.